home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok13 / compcontrol / ccinitwin.mod < prev    next >
Text File  |  1993-11-04  |  6KB  |  193 lines
  1. (*--------------------------------------------------------------------------
  2.  
  3. :Program.    CCInitWin.DEF 
  4. :Author.     Ralf Kaiser
  5. :Address.    5600 Wuppertal 2, Winckelmannstr. 1 
  6. :Phone,      02 02/59 28 10
  7. :Shortcut.   [rk]
  8. :Version.    2.1
  9. :Date.       21.01.89
  10. :Copyright.  Public Domain
  11. :Language.   Modula 2
  12. :Translator. M2 AMIGA Version 3.2d
  13. :Imports.    InitStruct, Nicolas Benezan [bne]
  14. :Contents.   Initialisiert das Window für CompControl
  15.  
  16. ----------------------------------------------------------------------------*)
  17.  
  18. IMPLEMENTATION MODULE CCInitWin;
  19.  
  20. FROM SYSTEM IMPORT
  21.  LONGSET, ADR, ADDRESS;
  22.  
  23. FROM Arts IMPORT
  24.  Assert, TermProcedure;
  25.  
  26. FROM Intuition IMPORT
  27.  GadgetFlags, GadgetFlagSet, ActivationFlags, ActivationFlagSet,
  28.  boolGadget, strGadget, Gadget, GadgetPtr, StringInfo, IntuiText, Border, 
  29.  IDCMPFlags, IDCMPFlagSet, IntuiMessage, IntuiMessagePtr, WindowFlags,
  30.  WindowFlagSet, ScreenFlags, ScreenFlagSet, customScreen, NewWindow,
  31.  WindowPtr, OpenWindow, CloseWindow, RefreshGadgets;
  32.  
  33. FROM Graphics IMPORT
  34.  RastPortPtr, Move, Text, jam1, jam2;
  35.  
  36. FROM MemSystem IMPORT
  37.  AllocMem, Deallocate;
  38.  
  39.    
  40. FROM IntuiStruct IMPORT
  41.  StructWindow, StructText, StructGadget, StructString, StructBorder,
  42.  Rectangle, BorderEnd, AllocProc, DeallocProc;
  43.  
  44.  
  45. PROCEDURE Cleanup;
  46.  
  47. BEGIN
  48.  
  49. IF MainWin # NIL THEN CloseWindow (MainWin); END;
  50.  
  51. END Cleanup;
  52.  
  53.  
  54. PROCEDURE MakeMainWindow (VAR NewWin : NewWindow);
  55.  
  56. BEGIN
  57.  
  58.  
  59. (*  ----  Borders erzeugen  ----  *);
  60.  
  61. StructBorder (MainBorder [0], -1, -1, PEN3, jam1, 4, NIL);
  62. Rectangle (101, 17);
  63. BorderEnd;
  64. StructBorder (MainBorder [1], -1, -1, PEN3, jam1, 4, NIL);
  65. Rectangle (416, 10);
  66. BorderEnd;
  67. StructBorder (MainBorder [2], -1, -1, PEN3, jam1, 4, NIL);
  68. Rectangle (416, 17);
  69. BorderEnd;
  70. StructBorder (MainBorder [3], -1, -1, PEN3, jam1, 4, NIL);
  71. Rectangle (205, 17);
  72. BorderEnd;
  73.  
  74. (*  ----  Intuitexte erzeugen  ----  *)
  75.  
  76. StructText (MainTexte [0], PEN1, PEN0, jam1, 5, 5, ADR(EDITT), NIL);
  77. StructText (MainTexte [1], PEN1, PEN0, jam1, 5, 5, ADR(COMPT), NIL);
  78. StructText (MainTexte [2], PEN1, PEN0, jam1, 5, 5, ADR(LINKT), NIL);
  79. StructText (MainTexte [3], PEN1, PEN0, jam1, 5, 5, ADR(STARTT), NIL);
  80. StructText (MainTexte [4], PEN1, PEN0, jam1, 5, 5, ADR(ALLTX), NIL);
  81. StructText (MainTexte [5], PEN1, PEN0, jam1, 5, 5, ADR(EXT1T), NIL);
  82. StructText (MainTexte [6], PEN1, PEN0, jam1, 5, 5, ADR(EXT2T), NIL);
  83. StructText (MainTexte [7], PEN1, PEN0, jam1, 5, 5, ADR(DOITT), NIL);
  84. StructText (MainTexte [8], PEN1, PEN0, jam1, 5, 5, ADR(ABOUTT), NIL);
  85. StructText (MainTexte [9], PEN1, PEN0, jam1, 5, 5, ADR(FREQT), NIL);
  86. StructText (MainTexte [10], PEN1, PEN0, jam1, 5, 5, ADR(QUITT), NIL);
  87.  
  88.  
  89. (*  ----  StringInfostruktur erzeugen  ----  *)
  90.  
  91. StructString (MainString, NameSIBuff, UNDOBUFFER);
  92.  
  93.  
  94. (*  ----  Gadgetstrukturen erzeugen  ----  *)
  95.  
  96.  
  97. StructGadget (MainGadgets [0], 5, 5, 100, 16, 
  98.               GadgetFlagSet{}, ActivationFlagSet{relVerify},
  99.               boolGadget, ADR(MainBorder [0]),
  100.               ADR(MainTexte [0]), LONGSET{}, EDITG, 
  101.               NIL);
  102.  
  103. StructGadget (MainGadgets [1], 110, 5, 100, 16, 
  104.               GadgetFlagSet{}, ActivationFlagSet{relVerify},
  105.               boolGadget, ADR(MainBorder [0]), 
  106.               ADR(MainTexte [1]), LONGSET{}, COMPG, 
  107.               ADR(MainGadgets [0]));
  108.  
  109. StructGadget (MainGadgets [2], 215, 5, 100, 16, 
  110.               GadgetFlagSet{}, ActivationFlagSet{relVerify},
  111.               boolGadget, ADR(MainBorder [0]), 
  112.               ADR(MainTexte [2]), LONGSET{}, LINKG, 
  113.               ADR(MainGadgets [1]));
  114.  
  115. StructGadget (MainGadgets [3], 320, 5, 100, 16, 
  116.               GadgetFlagSet{}, ActivationFlagSet{relVerify},
  117.               boolGadget, ADR(MainBorder [0]), 
  118.               ADR(MainTexte [3]), LONGSET{}, START, 
  119.               ADR(MainGadgets [2]));
  120.  
  121.  
  122. StructGadget (MainGadgets [4], 5, 26, 415, 10, 
  123.               GadgetFlagSet{selected}, 
  124.               ActivationFlagSet{relVerify, stringCenter},
  125.               strGadget, ADR(MainBorder [1]),
  126.               NIL, LONGSET{}, NAMEG, 
  127.               ADR(MainGadgets [3]));
  128. MainGadgets [4].specialInfo := ADR(MainString);
  129.  
  130.  
  131. StructGadget (MainGadgets [5], 5, 41, 415, 16, 
  132.               GadgetFlagSet{}, ActivationFlagSet{relVerify},
  133.               boolGadget, ADR(MainBorder [2]),  
  134.               ADR(MainTexte [4]), LONGSET{}, ALLGA, 
  135.               ADR(MainGadgets [4]));
  136.  
  137. StructGadget (MainGadgets [6], 5, 62, 205, 16, 
  138.               GadgetFlagSet{}, ActivationFlagSet{relVerify},
  139.               boolGadget, ADR(MainBorder [3]),
  140.               ADR(MainTexte [5]), LONGSET{}, EXT1G, 
  141.               ADR(MainGadgets [5]));
  142.  
  143. StructGadget (MainGadgets [7], 215, 62, 205, 16, 
  144.               GadgetFlagSet{}, ActivationFlagSet{relVerify},
  145.               boolGadget, ADR(MainBorder [3]),
  146.               ADR(MainTexte [6]), LONGSET{}, EXT2G, 
  147.               ADR(MainGadgets [6]));
  148.  
  149. StructGadget (MainGadgets [8], 5, 83, 100, 16, 
  150.               GadgetFlagSet{}, ActivationFlagSet{relVerify},
  151.               boolGadget, ADR(MainBorder [0]),  
  152.               ADR(MainTexte [7]), LONGSET{}, DOITG, 
  153.               ADR(MainGadgets [7]));
  154.  
  155. StructGadget (MainGadgets [9], 110, 83, 100, 16, 
  156.               GadgetFlagSet{}, ActivationFlagSet{relVerify},
  157.               boolGadget, ADR(MainBorder [0]),
  158.               ADR(MainTexte [8]), LONGSET{}, ABOUT, 
  159.               ADR(MainGadgets [8]));
  160.  
  161. StructGadget (MainGadgets [10], 215, 83, 100, 16, 
  162.               GadgetFlagSet{}, ActivationFlagSet{relVerify},
  163.               boolGadget, ADR(MainBorder [0]),
  164.               ADR(MainTexte [9]), LONGSET{}, FREQG, 
  165.               ADR(MainGadgets [9]));
  166.  
  167. StructGadget (MainGadgets [11], 320, 83, 100, 16, 
  168.               GadgetFlagSet{}, ActivationFlagSet{relVerify},
  169.               boolGadget, ADR(MainBorder [0]),
  170.               ADR(MainTexte [10]), LONGSET{}, QUITG, 
  171.               ADR(MainGadgets [10]));
  172.  
  173.  
  174. (*  ----  NewWindowstruktur erzeugen  ----  *)
  175.  
  176. StructWindow (NewWin, 0, 0, 460, 120, PEN0, PEN1, 
  177.               IDCMPFlagSet{ gadgetUp}, 
  178.               WindowFlagSet{activate, windowDepth, gimmeZeroZero, windowDrag},
  179.               ADR(MAINTITEL),
  180.               NIL, ScreenFlagSet{wbenchScreen});
  181.               NewWin.firstGadget := ADR(MainGadgets [11]);
  182.  
  183. END MakeMainWindow;
  184.  
  185.  
  186. BEGIN
  187.  
  188. TermProcedure (Cleanup);
  189. AllocProc := AllocMem;
  190. DeallocProc := Deallocate;
  191.  
  192. END CCInitWin.
  193.